home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
chaosexe.zip
/
XREADBIF.TRU
< prev
next >
Wrap
Text File
|
1980-01-01
|
1KB
|
49 lines
!PROGRAM PEND/READBIFU..RCATION DATA FROM FILE
CLEAR
PRINT" ***PENDULUM - READS BIFURCATION DATA***"
PRINT"THIS PROGRAM READS BIFURCATION DATA FROM FILES WHOSE NAMES ARE REQUIRED"
PRINT"AS AN INPUTS. UP TO 20 FILES CAN BE READ."
PRINT
library "SGLIB.TRC"
dim name(20), name$(20),A(1),B(1)
INPUT PROMPT"INPUT LOWEST DRIVING FORCE STRENGTH: ":GMIN
INPUT prompt"input highest driving force strength: ":gmax
INPUT PROMPT"INPUT DAMPING VALUE:":Q
Input prompt" # of data files:":numfiles
Input prompt"Which drive for data disk?":d$
let rec = 1
!
CALL SETTEXT("PENDULUM - BIFURCATION DIAGRAM","DRIVE AMPLITUDE - G","ANGULAR VELOCITY")
CALL SETXSCALE(GMIN,GMAX)
CALL SETYSCALE(-1,3)
CALL RESERVELEGEND
CALL SETAXES(0)
DATA GMIN,-1
CALL DATAGRAPH(A,B,1,0,"WHITE")
CALL GOTOCANVAS
for f=1 to numfiles
set cursor 1,1
input prompt" Name of file?":name(f)
let name$(f)=str$(name(f))
OPEN#f: NAME D$&":"&NAME$(f), ORGANIZATION RECORD
SET#f: RECORD REC
when error in
DO WHILE MORE #f
READ #f: G,VP
CALL GRAPHPOINT(G,VP,1)
LOOP
use
end when
SET CURSOR 1,1
PRINT" "
next f
set cursor 1,1
print" "
CALL ADDLEGEND("Q="&STR$(Q),0,1,"WHITE")
CALL DRAWLEGEND
get key variable
clear
print"press <esc> key to finish"
END